home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / •HC 2.0-4 / background_15718.txt < prev    next >
Text File  |  1990-04-06  |  6KB  |  252 lines
  1. -- background: 15718 from stack: in.0-4
  2. -- bmap block id: 16116
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Scenario
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=474 top=19 right=48 bottom=506
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 178 / 178
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: mainMenuIcon
  20. ----- HyperTalk script -----
  21. -- This handler goes back to the main menu of the Intro stack.
  22. on mouseUp
  23.   visual dissolve
  24.   go cd "go to main menu" of stack "Intro to HyperCard 2.0"
  25. end mouseUp
  26.  
  27.  
  28.  
  29. -- part 3 (button)
  30. -- low flags: 00
  31. -- high flags: 0000
  32. -- rect: left=474 top=195 right=224 bottom=506
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 24471 / 24471
  35. -- text alignment: 1
  36. -- font id: 0
  37. -- text size: 12
  38. -- style flags: 0
  39. -- line height: 16
  40. -- part name: MapBtn
  41. ----- HyperTalk script -----
  42. -- This handler goes back to the Map stack.
  43. --
  44. -- Globals:
  45. --    DisSpeed - the speed to use for visual effects
  46. --    CameFrom - tells the Map where the user came from
  47. --    MapMode  - tells the Map whether to use graphic or text mode
  48. on mouseUp
  49.   global DisSpeed, CameFrom, MapMode
  50.   set the hilite of me to true
  51.   lock Screen
  52.   set the hilite of me to false
  53.   put "A User Support " into CameFrom
  54.   put "section 3:" into whichCd
  55.   if MapMode is "graph" then
  56.     go to cd whichCd of stack "‚Ä¢HC 2.0-3"
  57.     HiliteMap
  58.   else
  59.     go to cd "indexmap" of stack "‚Ä¢HC 2.0-3"
  60.   end if
  61.   unlock screen with DisSpeed
  62. end mouseUp
  63.  
  64.  
  65.  
  66. -- part 4 (button)
  67. -- low flags: 00
  68. -- high flags: 2000
  69. -- rect: left=474 top=235 right=264 bottom=506
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 10112 / 10112
  72. -- text alignment: 1
  73. -- font id: 0
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: HomeBtn
  78. ----- HyperTalk script -----
  79. -- This handler lets the user quit or go home.
  80. -- It goes to cd "hi" of the Intro stack first to reset things.
  81. on mouseUp
  82.   answer "What do you want to do?" with "Cancel" or "Quit" or "Go Home"
  83.   if it is not "Cancel" then
  84.     lock screen
  85.     global CameFrom,stakName
  86.     put the short name of this cd into CameFrom
  87.     put the short name of this stack into stakName
  88.     go to cd "hi" of stack "Intro to HyperCard 2.0"
  89.     if it is "Quit" then
  90.       put "doMenu " & quote & "Quit HyperCard" & quote into myMsg
  91.       send myMsg to this cd
  92.     else if it is "Go Home" then send "doMenu home" to this cd
  93.   end if
  94. end mouseUp
  95.  
  96.  
  97.  
  98. -- part 5 (button)
  99. -- low flags: 00
  100. -- high flags: 2000
  101. -- rect: left=474 top=59 right=88 bottom=505
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 5553 / 5553
  104. -- text alignment: 1
  105. -- font id: 0
  106. -- text size: 12
  107. -- style flags: 0
  108. -- line height: 16
  109. -- part name: section
  110. ----- HyperTalk script -----
  111. -- This handler goes back to the appropriate menu of the "Intro" stack.
  112. on mouseUp
  113.   visual dissolve
  114.   put "section" && last char of the icon of me & ":" into SubCd
  115.   go to cd SubCd of "Intro to HyperCard 2.0"
  116. end mouseUp
  117.  
  118.  
  119.  
  120. -- part 12 (button)
  121. -- low flags: 00
  122. -- high flags: 2000
  123. -- rect: left=473 top=308 right=337 bottom=501
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 14077 / 14077
  126. -- text alignment: 1
  127. -- font id: 0
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: Prev
  132. ----- HyperTalk script -----
  133. -- The "goPrev" handler is in the stack script.
  134. on mouseUp
  135.   goPrev
  136. end mouseUp
  137.  
  138.  
  139.  
  140. -- part 17 (field)
  141. -- low flags: 81
  142. -- high flags: 0007
  143. -- rect: left=124 top=290 right=342 bottom=299
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 0 / 0
  146. -- text alignment: 0
  147. -- font id: 3
  148. -- text size: 9
  149. -- style flags: 0
  150. -- line height: 12
  151. -- part name: AllFeed
  152.  
  153.  
  154. -- part 19 (button)
  155. -- low flags: 00
  156. -- high flags: 2000
  157. -- rect: left=476 top=278 right=309 bottom=507
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 3720 / 3720
  160. -- text alignment: 1
  161. -- font id: 0
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: Next
  166. ----- HyperTalk script -----
  167. -- The "goNext" handler is in the stack script.
  168. on mouseUp
  169.   goNext
  170. end mouseUp
  171.  
  172.  
  173.  
  174. -- part 21 (field)
  175. -- low flags: 81
  176. -- high flags: 2004
  177. -- rect: left=92 top=300 right=340 bottom=392
  178. -- title width / last selected line: 0
  179. -- icon id / first selected line: 0 / 0
  180. -- text alignment: 0
  181. -- font id: 174
  182. -- text size: 12
  183. -- style flags: 0
  184. -- line height: 14
  185. -- part name: feedback
  186. ----- HyperTalk script -----
  187. on mouseUp
  188.   hide me
  189. end mouseUp
  190.  
  191.  
  192. -- part 22 (field)
  193. -- low flags: 81
  194. -- high flags: 0001
  195. -- rect: left=464 top=124 right=143 bottom=512
  196. -- title width / last selected line: 0
  197. -- icon id / first selected line: 0 / 0
  198. -- text alignment: 0
  199. -- font id: 3
  200. -- text size: 9
  201. -- style flags: 0
  202. -- line height: 12
  203. -- part name: answer
  204.  
  205.  
  206. -- part 23 (button)
  207. -- low flags: 00
  208. -- high flags: C000
  209. -- rect: left=134 top=23 right=46 bottom=302
  210. -- title width / last selected line: 0
  211. -- icon id / first selected line: 0 / 0
  212. -- text alignment: 1
  213. -- font id: 174
  214. -- text size: 14
  215. -- style flags: 256
  216. -- line height: 18
  217. -- part name: A User Support Scenario
  218. ----- HyperTalk script -----
  219. -- This handler does some of the flying button animation.
  220. -- "originCdName" is used by the bg script to determine
  221. -- where to go, as well as in the flying btn animation
  222. on mouseUp
  223.   global OriginCdName,TopSelBtn
  224.  
  225.   lock screen
  226.   put the rect of me into BtnRect
  227.   put the short name of me into BtnName
  228.   put the icon of bg btn "Section" into iconID
  229.   go to cd "interm2" of "Intro to HyperCard 2.0"
  230.  
  231.   set the rect of bg btn id 16 to BtnRect
  232.   set the name of bg btn id 16 to BtnName
  233.   set the icon of bg btn "section" to iconID
  234.  
  235.   unlock screen with visual dissolve
  236.   set the top of bg btn id 16 to TopSelBtn
  237.  
  238.   -- go to interm1 cd, prepare it and reveal it
  239.   lock screen
  240.   go to cd "interm1"
  241.   put fld "title" of cd OriginCdName into fld "title"
  242.   set the name of btn id 1 to the short name of me
  243.   set the rect of btn id 1 to BtnRect
  244.   set the top of btn id 1 to TopSelBtn
  245.   unlock screen with dissolve
  246.  
  247.   -- go to the section cd
  248.   visual dissolve
  249.   go to cd OriginCdName
  250. end mouseUp
  251.  
  252.